SCREEN _NEWIMAGE(640,200,12)
COLOR 15,3
CLS
DIM AS INTEGER c(1 TO 5)
c(1) = 15  : c(2) = 15 : c(3) = 3 : c(4) = 3 : c(5) = 3
DIM img%(10000)

again:
  FOR i = 1 TO 1000
    x = INT(RND * 640) : y = INT( RND * 200)
    PSET (x,y), c(INT(RND * 5) + 1)
  NEXT i
  _DELAY 0.00125
  GET (0,0) - (639,199), img%
  CLS
  PUT (0,1), img%, PSET
GOTO again